home *** CD-ROM | disk | FTP | other *** search
/ Paradise in the Skirt / Paradise in the Skirt.iso / book3.dir / 00069_Script_Man < prev    next >
Text File  |  1994-11-11  |  6KB  |  183 lines
  1. global gBlockList,gGirlList,gEntranceList,totalHpoint,moveV,moveH,RmoveH,RmoveV,stepNo,manH,manV,raderH,raderV,gMovieList,movieNo,movieName
  2.  
  3. on moveMan direction
  4.   put stepNo + 1 into stepNo
  5.   if direction = 8 then
  6.     put 0 into moveH
  7.     put -9 into moveV
  8.     put 0 into RmoveH
  9.     put -72 into RmoveV
  10.     put 19 into startCast
  11.     put 22 into endCast
  12.   else if direction = 2 then
  13.     put 0 into moveH
  14.     put 9 into moveV
  15.     put 0 into RmoveH
  16.     put 72 into RmoveV
  17.     put 15 into startCast
  18.     put 18 into endCast
  19.   else if direction = 4 then
  20.     put -12 into moveH
  21.     put 0 into moveV
  22.     put -48 into RmoveH
  23.     put 0 into RmoveV
  24.     put 23 into startCast
  25.     put 26 into endCast
  26.   else if direction = 6 then
  27.     put 12 into moveH
  28.     put 0 into moveV
  29.     put 48 into RmoveH
  30.     put 0 into RmoveV
  31.     put 27 into startCast
  32.     put 30 into endCast
  33.   end if
  34.   IF NOT(THE CASTNUM OF SPRITE 13 = startCast) THEN
  35.     SET THE CASTNUM OF SPRITE 13 TO startCast
  36.     UPDATESTAGE
  37.     mMove girl1
  38.     mMove girl2
  39.     EXIT
  40.   END IF
  41.   if direction = 2 then
  42.     repeat with spno in gEntranceList
  43.       if sprite 14 intersects spno then
  44.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D2"
  45.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  46.         UPDATESTAGE
  47.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D3"
  48.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  49.         UPDATESTAGE
  50.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D4"
  51.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  52.         UPDATESTAGE
  53.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D1"
  54.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  55.         UPDATESTAGE
  56.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D2"
  57.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  58.         UPDATESTAGE
  59.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D3"
  60.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  61.         UPDATESTAGE
  62.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D4"
  63.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  64.         UPDATESTAGE
  65.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D1"
  66.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 12
  67.         UPDATESTAGE
  68.         put 391 into manH
  69.         put 155 into manV
  70.         put 383 into raderH
  71.         put 146 into raderV
  72.         play done
  73.         exit
  74.       end if
  75.     end repeat
  76.   end if
  77.   set the locH of sprite 14 = the locH of sprite 14 + RmoveH
  78.   set the locV of sprite 14 = the locV of sprite 14 + RmoveV
  79.   updateStage
  80.   if stepNo >= 5 then
  81.     repeat with spno in gGirlList
  82.       if sprite 14 intersects spno then
  83.         if random(7) = 2 then
  84.           go to marker(1)
  85.           
  86.           nanpa
  87.           
  88.           set the locH of sprite 14 = the locH of sprite 14 - RmoveH
  89.           set the locV of sprite 14 = the locV of sprite 14 - RmoveV
  90.           exit
  91.         end if
  92.         put getaProp(gMovieList,spno) into movieNo
  93.         put item 1 of line movieNo of the text of cast "CommentList" into Hpoint
  94.         SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  95.         set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  96.         puppetSprite 48, False
  97.         updateStage
  98.         sound stop 1
  99.         put "B" into movieName
  100.         playQTMovie
  101.         
  102.         put value(Hpoint) into thisHpoint
  103.         if thisHpoint > 0 then
  104.           set the text of cast "Comment" to "H.Point  +"&Hpoint
  105.         else
  106.           put abs(thisHpoint) into Hpoint
  107.           set the text of cast "Comment" to "H.Point  -"&Hpoint
  108.         end if
  109.         put totalHpoint + thisHpoint into totalHpoint
  110.         put totalHpoint into field "Hpoint"
  111.         put 0 into stepNo
  112.         EXIT
  113.       END IF
  114.     END REPEAT
  115.   end if
  116.   repeat with spno in gBlockList
  117.     if sprite 14 intersects spno then
  118.       SET THE LOCV OF SPRITE 14 TO THE LOCV OF SPRITE 14 - RmoveV
  119.       set the locH of sprite 14 to the locH of sprite 14 - RmoveH
  120.       UPDATESTAGE
  121.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  122.       UPDATESTAGE
  123.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  124.       UPDATESTAGE
  125.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  126.       UPDATESTAGE
  127.       SET THE CASTNUM OF SPRITE 13 TO startCast
  128.       UPDATESTAGE
  129.       mMove girl1
  130.       mMove girl2
  131.       EXIT
  132.     end if
  133.   end repeat
  134.   IF NOT(SPRITE 14 WITHIN 3) THEN
  135.     SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  136.     set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  137.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  138.     UPDATESTAGE
  139.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  140.     UPDATESTAGE
  141.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  142.     UPDATESTAGE
  143.     SET THE CASTNUM OF SPRITE 13 TO startCast
  144.     UPDATESTAGE
  145.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  146.     UPDATESTAGE
  147.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  148.     UPDATESTAGE
  149.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  150.     UPDATESTAGE
  151.     SET THE CASTNUM OF SPRITE 13 TO startCast
  152.     UPDATESTAGE
  153.     mMove girl1
  154.     mMove girl2
  155.   ELSE
  156.     if direction = 8 or direction = 2 then
  157.       put 2 into step
  158.     else
  159.       put 1 into step
  160.     end if
  161.     repeat with i = 1 to step
  162.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  163.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  164.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  165.       UPDATESTAGE
  166.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  167.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  168.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  169.       UPDATESTAGE
  170.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  171.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  172.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  173.       UPDATESTAGE
  174.       SET THE CASTNUM OF SPRITE 13 TO startCast
  175.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  176.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  177.       UPDATESTAGE
  178.     end repeat
  179.     mMove girl1
  180.     mMove girl2
  181.   END IF
  182. end
  183.